home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / lib / alib / wbenchlib.a < prev    next >
Text File  |  1994-02-01  |  645b  |  41 lines
  1.  
  2.             ;   autoinit if you ever reference WORKBENCH.LIBRARY
  3.             ;
  4.             ;   (c)Copyright 1990-92, Matthew Dillon, 
  5.             ;                      All Rights Reserved
  6.             ;
  7.  
  8.             xdef    _WorkbenchBase
  9.             xref    __AutoFail0
  10.  
  11. _LVOOpenLibrary     equ    -552
  12. _LVOCloseLibrary    equ    -414
  13.  
  14.             section autoinit0,code
  15.  
  16.             moveq.l #0,D0
  17.             lea    wbenchname(pc),A1
  18.             jsr    _LVOOpenLibrary(A6)
  19.             move.l    D0,_WorkbenchBase(A4)
  20.             beq    __AutoFail0
  21.             bra    i10
  22. wbenchname         dc.b    'workbench.library',0
  23.             ds.w    0
  24. i10
  25.  
  26.             section autoexit0,code
  27.  
  28.             move.l    _WorkbenchBase(A4),D0
  29.             beq    l10
  30.             move.l    D0,A1
  31.             jsr    _LVOCloseLibrary(A6)
  32. l10
  33.  
  34.  
  35.             section libbss,bss
  36.  
  37. _WorkbenchBase        ds.l    1
  38.  
  39.             END
  40.  
  41.